5 IFPEEK(50307)<>120THEN10
6 A=50257:POKEA,8:POKEA+2,118:POKEA+3,026:POKEA+4,117:POKEA+5,032
10 POKE53280,1:POKE53281,1:PRINTCHR$(142)CHR$(8)
20 PRINT"[147][156]                                        ";
30 PRINT"       S  H  O  R  T  S  A  V  E        ";
40 PRINT"[156]                                        "
50 PRINT"[149] VON HOLGER GEHRMANN  DEUTSCHLAND, 1985"
60 PRINT"[144]BITTE WAEHLEN SIE:"
70 PRINT" 1 [146] WAS IST SHORTSAVE? (KURZERKLAERUNG)
80 [153]" 2 WAIT WIE ARBEITET SHORTSAVE?
90 PRINT" 3 [146] WIE KANN ICH SHORTSAVE FUER EIGENE
100 [153]"    PROGRAMME ANWENDEN?"
120 [153]"STOPWENN SIE CTRL+S DRUECKEN, WIRD NUR DAS
130 PRINT"EIGENTLICHE SHORTSAVE-TOOL ABGESAVED,
140 [153]"NICHT DIESES DEMO-PROGRAMM!"
150 [153]:[153]"VERIFY   HOLGER GEHRMANN, HEINRICHSTR. 25
160 PRINT"   3000 HANNOVER 1, TEL:0511/344771"
180 GETR$:R=VAL(R$):IFR<1ORR>3THEN180
185 A$="[147][144]INPUT 64    SHORTSAVE BY HOLGER GEHRMANN[149]"
190 ONRGOTO200,400,900
200 REM 1.WAS IST SHORTSAVE (KURZERKL.)
210 PRINTA$;"[146]SHORTSAVE VERKUERZT [149]PROGRAMME.
220 [153]"BEVOR MAN EIN PROGRAMM ABSPEICHERT, RUFT";
230 [153]"MAN DIE SHORTSAVE-VERKUERZUNGSROUTINE
240 PRINT"AUF, DIE DAS PROGRAMM IN EINEN SPEZIEL-"
250 PRINT"LEN CODE VERAENDERT (NICHT LIST- ODER
260 [153]"RUN-FAEHIG, NUR ZUM ABSPEICHERN GEEIG-"
270 [153]"NET).
275 PRINT"DIESES NUNMEHR VERKUERZTE PROGRAMM"
280 PRINT"SAVED MAN NORMAL AB."
290 PRINT"[151]WENN MAN NUN DIESES VERKUERZTE PROGRAMM"
300 PRINT"WIEDER LAEDT, MUSS MAN NACH BEENDETEM"
310 PRINT"LADEVORGANG DIE SHORTSAVE-NORMALISIE-"
320 PRINT"RUNGSROUTINE AUFRUFEN, DIE DAS PROGRAMM"
330 PRINT"WIEDER IN DIE ORIGINAL-LAENGE UMAENDERT.";
340 PRINT"DAS PROGRAMM IST DANN WIE VORHER"
350 PRINT"LAUFFAEHIG."
360 PRINT"   TASTE DRUECKEN!   [146]":POKE198,0:WAIT198,1:POKE198,0:RUN
400 REM 2.WIE ARBEITET SHORTSAVE
410 PRINTA$;"[146]MAN UEBERLEGT SICH NATUERLICH,WIE SHORT-";
420 PRINT"SAVE BELIEBIGE PROGRAMME EINFACH KUERZER";
430 PRINT"MACHEN KANN. ES FUNKTIONIERT SO:"
440 PRINT"[151]IN ALLEN PROGRAMMEN KOMMT ES AUTOMATISCH";
450 PRINT"VOR, DASS MEHRERE GLEICHE BYTES HINTER-"
460 PRINT"EINANDER IM SPEICHER ABGELEGT SIND."
470 PRINT"[152]BEISPIEL: IRGENDWO IM SPEICHER STEHEN
480 [153]"HINTEREINANDER 20 NULLEN. NORMALERWEISE"
490 [153]"SAVED MAN NUN ALLE 20 NULLEN AB, DAS
500 PRINT"NIMMT 20 BYTE EIN. SHORTSAVE ZAEHLT DIE
510 [153]"NULLEN UND LEGT LEDIGLICH IM SPEICHER"
520 [153]"AB, WELCHES BYTE WIE OFT IM SPEICHER"
530 [153]"STEHT (IN DIESEM FALLE 0 UND 20, BYTE"
540 [153]"NULL, ANZAHL 20)."
550 [153]"DAS NIMMT NUR GANZE 2 BYTE EIN!"
560 [153]"STOP   TASTE DRUECKEN!   WAIT":[151]198,0:[146]198,1:[151]198,0
570 [153]A$;"WAITCLRALLE ANDEREN ZEICHEN WERDEN NORMAL IM"
580 [153]"SPEICHER ABGELEGT."
590 [153]"DIE SHORTSAVE-NORMALISIERUNGSROUTINE"
600 [153]"WANDELT DEN PROGRAMMCODE, IN DEM BYTES,"
610 [153]"DIE IN GROESSERER ZAHL HINTEREINANDER"
620 [153]"AUFTRETEN, WIE SCHON ERKLAERT ALS NUR 2"
630 [153]"BYTES ABGESPEICHERT SIND, WIEDER IN DIE"
640 [153]"HERKOEMMLICHE ABSPEICHERUNGSART UM."
650 [153]"POKEVOR JEDEM 'BYTE + ANZAHL' STEHT DANN"
660 [153]"NOCH EIN SPEZIALCODE, EIN H UND EIN G,"
670 [153]"DAMIT DIE RUECKWANDELROUTINE WEISS, WANN";
680 [153]"EIN NORMAL ABGESPEICHERTES BYTE KOMMT
690 PRINT"UND WANN EINS MIT ANZAHL."
700 PRINT"   TASTE DRUECKEN!   [146]":WAIT198,1:POKE198,0
710 PRINTA$;"[146]BEISPIEL:"
720 PRINT"[151]SPEICHERINHALT VOR UMWANDLUNG:"
730 PRINT"[149]NUBIOYBYUUUUUUUUUUUUUUUUUUUUURWRTCWEAX"
740 PRINT"[152]SPEICHERINHALT NACH UMWANDLUNG DURCH    SHORTSAVE:"
750 PRINT"[149]NUBIOYBYHGU21RWRTCWEAX"
760 PRINT"ANSTELLE DER 21 U'S STEHT IM SPEICHER"
770 PRINT"NUR NOCH HGU21."
780 PRINT"STEHEN DIE ZEICHEN H UND G JEDOCH SCHON"
790 PRINT"IRGENDWO IM UNUMGEWANDELTEN PROGRAMM, SO";
800 PRINT"IST DIESES NICHT WANDLUNGSFAEHIG, DIE
810 [153]"RUECKWANDELROUTINE KAEME SONST DURCHEIN-";
820 [153]"ANDER (SIE SIEHT H UND G ALS SPEZIAL-
830 PRINT"CODE FUER 'BYTE + ANZAHL' AN).
840 [153]"IN SOLCHEN FAELLEN GIBT DIE SHORTSAVE-"
850 [153]"VERKUERZUNGSROUTINE DIE MELDUNG
860 PRINT"CANNOT DO THAT AUS."
870 PRINT"[144]   TASTE DRUECKEN!   [146]":POKE198,0:WAIT198,1:POKE198,0:RUN
900 REM 3.SHORTSAVE IN EIGENEN PGMEN
910 PRINTA$;"[146][151]UM EIGENE PROGRAMME IN VERKUERZTER FORM"
920 PRINT"AUF DISKETTE ODER KASSETTE ZU SAVEN,
930 [153]"GEHEN SIE FOLGENDERMASSEN VOR:"
940 [153]" 1. SHORTSAVE-TOOL LADEN
990 PRINT" 2. SHORTSAVE-TOOL STARTEN (RUN)
1000 [153]" 3. EIGENES PROGRAMM LADEN
1010 PRINT" 4. SHORTCODE-SYS EINGEBEN (SYS40497)
1020 [153]"(WARTEN, BIS DAS PROGRAMM VERKUERZT IST)
1030 PRINT" 5. 'CLR' EINGEBEN
1040 [153]" 6. EIGENES PROGRAMM SAVEN (AUF DISKETTE"
1050 [153]"    MIT ,8,1   AUF KASSETTE MIT ,1,1)"
1060 [153]"STOP   TASTE DRUECKEN!   WAIT":[151]198,0:[146]198,1:[151]198,0
1070 [153]A$;"WAITPOKEUM VERKUERZTE PROGRAMME VON KASSETTE BZW";
1080 [153]"DISKETTE ZU LADEN, MUESSEN SIE:"
1090 [153]" 1. SHORTSAVE-TOOL LADEN."
1100 [153]" 2. SHORTSAVE-TOOL STARTEN"
1110 [153]" 3. EIGENES PROGRAMM LADEN (VON DISKETTE"
1115 [153]"    MIT ,8,1   VON KASSETTE MIT ,1,1)"
1120 [153]" 4. NORMALCODE-SYS EINGEBEN (SYS39936)
1130 PRINT"(WARTEN, BIS DAS PROGRAMM WIEDER DIE UR-SPRUENGLICHE LAENGE HAT)
1140 [153]" 5. 'CLR' EINGEBEN
1150 PRINT" 6. EIGENES PROGRAMM STARTEN
1160 [153]"STOP   TASTE DRUECKEN!   WAIT":[151]198,0:[146]198,1:[151]198,0:[138]